home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Mag HDD Backup
/
Amiga Mag HDD Backup.zip
/
Amiga Mag HDD Backup
/
Alexander.img.bin
/
Alexander.img
/
315 2 files Archive.sit
/
Any plain-text files
/
? Any plain-text file 94
< prev
next >
Wrap
Text File
|
1995-01-03
|
6KB
|
209 lines
ts 1,1000
InitialInteger 4
Border DOUBLEBEVEL ,2,1
EndScript
OnRelease
SetObjectState "MaxNoteDurVar",ON
EndScript
EndObj
IntegerField "MaxNoteDurVar"
Definition
Origin 432,48
Size 81,8
Justification RIGHT
MaxFieldLength 1
Limits 0,6
InitialInteger 1
Border DOUBLEBEVEL ,2,1
EndScript
OnRelease
SetObjectState "MaxNoteVar",ON
EndScript
EndObj
IntegerField "MaxNoteVar"
Definition
Origin 432,72
Size 81,8
Justification RIGHT
MaxFieldLength 2
Limits 1,12
InitialInteger 2
Border DOUBLEBEVEL ,2,1
EndScript
OnRelease
SetObjectState "NumMeasures",ON
EndScript
EndObj
TextButton "Generate"
Definition
Origin 536,24
Font "topaz",8
Style SHADOW ,2,3
TextColors 1,0,JAM1
Text " Generate "
Border BEVEL ,2,1
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnRelease
Nop ; Clear current score and lock display
SendMessage "CLEAR FORCE"
SendMessage "LOCKDISPLAY"
SendMessage "LOCKGUI"
Nop ; Set key and time signatures
SendMessage "SETKEYSIGNATURE "||KeyText[KeyTextIndex]||" 0 0"
SendMessage "SETTIMESIGNATURE "||Beats||" "||NoteBeat||" 0"
Nop ; Get user defined values from fields
Let TotalBeats=Beats*IntegerFrom("NumMeasures")
Let MNV=IntegerFrom("MaxNoteVar")
Let MNDV=IntegerFrom("MaxNoteDurVar")
Nop ; Initialize variables for loop
Let NumBeats=0
Let NumBeatsMeasure=0
Let Line=0
Nop ; Loop until all measures filled
While NumBeats<TotalBeats
Nop ; Calc note line based on random variation
Let LineVar=Random(-MNV,MNV)
Let Line=Line+LineVar
Nop ; Calc note beat based on random variation
Let CurNoteBeatVar=Random(-MNDV,MNDV)
Let CurNoteBeat=Integer(NoteBeat*(2^CurNoteBeatVar))
Nop ; Make sure note beat is within acceptable range 1-64
Let CurNoteBeat=Min(64,Max(1,CurNoteBeat))
Nop ; Make sure notes near end of measure do not exceed
Nop ; maximum allowable
While (NumBeatsMeasure+NoteBeat/CurNoteBeat)>Beats
Let CurNoteBeat=CurNoteBeat*2
EndLoop
Nop ; Insert the note and go to next position
SendMessage "INSERTITEM NOTE DURATION "||CurNoteBeat||" LINE "||Line
SendMessage "NEXT NOTE"
Nop ; Update the number of current beats in the song and
Nop ; the current measure
Let NumBeats=NumBeats+NoteBeat/CurNoteBeat
Let NumBeatsMeasure=NumBeatsMeasure+NoteBeat/CurNoteBeat
Nop ; Go to next measure if current one full
If NumBeatsMeasure>=Beats
SendMessage "NEXT MEASURE"
Let NumBeats=Integer(NumBeats)
Let NumBeatsMeasure=0
EndIf
EndLoop
Nop ; Unlock the display, activate song window,
Nop ; update the display, and go to the first measure
SendMessage "UNLOCKGUI"
SendMessage "UNLOCKDISPLAY"
SendMessage "WINDOW DOCUMENT ACTIVATE"
SendMessage "UPDATEDISPLAY"
SendMessage "POSITION SOF"
EndScript
EndObj
TextButton "Play"
Definition
Origin 536,48
Font "topaz",8
Style SHADOW ,2,3
TextColors 1,0,JAM1
Text " Play "
Border BEVEL ,2,1
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnRelease
Nop ; Activate the song window and play song
SendMessage "WINDOW DOCUMENT ACTIVATE"
SendMessage "PLAY"
EndScript
EndObj
TextButton "Stop"
Definition
Origin 536,72
Font "topaz",8
Style SHADOW ,2,3
TextColors 1,0,JAM1
Text " Stop "
Border BEVEL ,2,1
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnRelease
Nop ; Stop playing the song
SendMessage "STOP"
EndScript
EndObj
ImageButton "BeatsLeft"
Definition
Origin 110,60
Image "RCF:CanDo2.51/Brushes/Left.br"
Shape "RCF:CanDo2.51/Brushes/Left.br"
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnClick
Nop ; Change beats while pressing button
Nop ; Do not allow value below 1
Loop
Let Beats=Max(Beats-1,1)
Do "ShowTime"
Delay 0,0,10
Until ObjectState("BeatsLeft")=OFF
EndScript
EndObj
ImageButton "BeatsRight"
Definition
Origin 132,60
Image "RCF:CanDo2.51/Brushes/Right.br"
Shape "RCF:CanDo2.51/Brushes/Right.br"
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnClick
Nop ; Change beats while pressing button
Nop ; Do not allow value above 16
Loop
Let Beats=Min(Beats+1,16)
Do "ShowTime"
Delay 0,0,10
Until ObjectState("BeatsRight")=OFF
EndScript
EndObj
ImageButton "NoteBeatLeft"
Definition
Origin 110,72
Image "RCF:CanDo2.51/Brushes/Left.br"
Shape "RCF:CanDo2.51/Brushes/Left.br"
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnClick
Nop ; Change beats while pressing button
Nop ; Do not allow value below 1
Loop
Let NoteBeat=Max(NoteBeat/2,1)
Do "ShowTime"
Delay 0,0,10
Until ObjectState("NoteBeatLeft")=OFF
EndScript
EndObj
ImageButton "NoteBeatRight"
Definition
Origin 132,72
Image "RCF:CanDo2.51/Brushes/Right.br"
Shape "RCF:CanDo2.51/Brushes/Right.br"
Highlight COMPLEMENT
ButtonFlags NONE
EndScript
OnClick
Nop ; Change beats while pressing button
Nop ; Do not allow value above 64
Loop
Let NoteBeat=Min(NoteBeat*2,64)
Do "ShowTime"
Delay 0,0,10
Until ObjectState("NoteBeatRight")=OFF
EndScript
EndObj
EndObj
EndObj
■ 0 └≤ w■ s 3² ■ ° fⁿ ⁿ α ÇD@ ° ≡ Ç?≈Çä?c? D??c?≈ ` └÷ p c3° └0 └≤ c {> 3>>>° ⁿ îⁿ α